library(logr)

s1 <- log_open("s1.log")
sink(s1)
#run file here 
sink()
log_close()


s2 <- log_open("s2.log")
sink(s2)
#run file here 
sink()
log_close()


s3 <- log_open("s3.log", header = T)
sink(s3)
#run file here 
sink()
log_close()


s4 <- log_open("s4.log", header = T)
sink(s4)
#run file here 
sink()
log_close()

#Session Information 
capture.output(sessionInfo(), file = "session_info.txt")
